(face-set-after-frame-default): Obey the

`customized-face' for new faces.

diff --git a/lisp/faces.el b/lisp/faces.el
index 4c938f2e1ba0eda91b9b70ac9954aa9bc43eff9b..dfc6cf025d94a9d0ce4800544093f200b76eb996 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1443,7 +1443,8 @@ If FRAME is nil, the current FRAME is used."
       ;; Set up each face, first from the defface information,
       ;; then the global face data, and then the X resources.
       (let* ((face (car (car rest)))
-            (spec (or (get face 'saved-face)
+            (spec (or (get face 'customized-face)
+                      (get face 'saved-face)
                       (get face 'face-defface-spec)))
             (global (cdr (assq face global-face-data)))
             (local (cdr (car rest))))